W tym przyk│adzie drukowana jest lista nazw i adres≤w wszystkich klient≤w, kt≤rzy z│o┐yli zam≤wienie w drugim kwartale 1995 roku.
W tym przyk│adzie wywo│ywana jest procedura WyliczPola, kt≤r╣ mo┐na znaleƒµ w przyk│adzie dotycz╣cym instrukcji SELECT.
Sub SubQueryX()
Dim dbs As Database, rst As Recordset
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Wymie± nazwΩ i kontakt do wszystkich
' klient≤w, kt≤rzy z│o┐yli zam≤wienie w drugim
' kwartale 1995 roku
Set rst = _ dbs.OpenRecordset("SELECT Przedstawiciel," _
& " NazwaFirmy, Tytu│Przedstawiciela, Telefon" _
& " FROM Klienci" _
& " WHERE KodKlienta" _
& " IN (SELECT KodKlienta FROM Zam≤wienia" _
& " WHERE DataZam≤wienia Between #04/1/95#" _
& " And #07/1/95#);")
' Zape│nij obiekt Recordset.
rst.MoveLast
' Wywo│aj procedurΩ WyliczPola w celu
' wydrukowania zawarto£ci obiektu Recordset. Przeka┐ obiekt
' Recordset i wymagan╣ szeroko£µ pola.
WyliczPola rst, 25
dbs.Close
End Sub